HttpWebRequest and binary document, VB.Net code

I found some solutions to read text web document using StreamReader and ReadToEnd, but the solutions does not work with binary data (pdf and doc documents, gif and jpeg images). Next function reads binary document from URL using HttpWebRequest and returns the document as byte()

Public Function GetURLDataBin(ByVal URL As String, _
	 Optional ByRef UserName As String = "", _
	 Optional ByRef Password As String = "") As Byte()
		Dim Req As HttpWebRequest
		Dim SourceStream As System.IO.Stream
		Dim Response As HttpWebResponse

Try
      'Ignore bad https certificates - expired, untrusted, bad name, etc.
			ServicePointManager.CertificatePolicy = New MyAcceptCertificatePolicy

'create a web request to the URL
			Req = HttpWebRequest.Create(URL)

'Grrrrr.... HttpWebRequest does not know rfc
			'you cannot use http://username:password@server:port/uri
			'Set username and password if required
			If Len(UserName) > 0 Then
				Req.Credentials = New NetworkCredential("root", "mmanasek")
			End If

'get a response from web site
			Response = Req.GetResponse()

'Source stream with requested document
			SourceStream = Response.GetResponseStream()

'SourceStream has no ReadAll, so we must read data block-by-block
			'Temporary Buffer and block size
			Dim Buffer(4096) As Byte, BlockSize As Integer

'Memory stream to store data
			Dim TempStream As New MemoryStream
			Do
				BlockSize = SourceStream.Read(Buffer, 0, 4096)
				If BlockSize > 0 Then TempStream.Write(Buffer, 0, BlockSize)
			Loop While BlockSize > 0

'return the document binary data
			Return TempStream.ToArray()
		Catch ex As Exception
			errdw("GetURLDataBin", ex.Message, URL)
		Finally
			'grrr... Using is great, but the command is not in VB.Net
			SourceStream.Close()
			Response.Close()
		End Try
	End Function

Copyright and use this code

The source code on this page and other samples at https://www.motobit.com/tips/ are a free code, you can use it as you want: copy it, modify it, use it in your products, ...

If you use this code, please:

1. Leave the author note in the source.

2. Link this sample from you page.

<A
 Href="https://www.motobit.com/tips/detpg_vbnet-binary-get-url/"
 Title="Short function to read binary data
	(pdf, gif) from URL using
	HttpWebRequest, ResponseStream and temporary binary
	memory stream."
>HttpWebRequest and binary document, VB.Net code</A>

HttpWebRequest and binary document, VB.Net codeMOTOBIT.COM

See also

Copyright and use this code